program asuswarriors;



{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\directx for managed code\1.0.2902.0\Microsoft.DirectX.dll'}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\directx for managed code\1.0.2902.0\Microsoft.DirectX.Direct3D.dll'}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\directx for managed code\1.0.2902.0\Microsoft.DirectX.Direct3DX.dll'}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\directx for managed code\1.0.2902.0\Microsoft.DirectX.DirectInput.dll'}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\directx for managed code\1.0.2902.0\Microsoft.DirectX.DirectSound.dll'}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Drawing.dll'}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\directx for managed code\1.0.2902.0\Microsoft.DirectX.AudioVideoPlayback.dll'}
{%DelphiDotNetAssemblyCompiler 'c:\program files\fichiers communs\borland shared\bds\shared assemblies\4.0\IndyCore.dll'}
{%DelphiDotNetAssemblyCompiler 'c:\program files\fichiers communs\borland shared\bds\shared assemblies\4.0\IndyProtocols.dll'}
{%DelphiDotNetAssemblyCompiler 'c:\program files\fichiers communs\borland shared\bds\shared assemblies\4.0\IndySystem.dll'}

uses
  SysUtils,
  System.Windows.Forms,
  u_form in 'u_form.pas',
  u_mesh in 'u_mesh.pas',
  u_load in 'u_load.pas',
  u_input in 'u_input.pas',
  u_engine in 'u_engine.pas',
  u_camera in 'u_camera.pas',
  u_sound in 'u_sound.pas',
  u_astar in 'u_astar.pas',
  u_chatform in 'u_chatform.pas',
  u_font in 'u_font.pas',
  u_jresau in 'u_jresau.pas',
  u_menu in 'u_menu.pas',
  u_player in 'u_player.pas',
  u_server in 'u_server.pas',
  u_thread_ecoute in 'u_thread_ecoute.pas',
  u_ia in 'u_ia.pas',
  u_gamemenu in 'u_gamemenu.pas',
  u_menu_in_game in 'u_menu_in_game.pas',
  u_threadastar in 'u_threadastar.pas',
  u_resennemi in 'u_resennemi.pas',
  u_partic in 'u_partic.pas',
  u_timer in 'u_timer.pas',
  u_animsprite in 'u_animsprite.pas',
  u_surcouf in 'u_surcouf.pas';

var
  engine: c_engine;

begin
  { TODO -oUser -cConsole Main : Insert code here }

  randomize;
  engine := c_engine.create;
  myform.Show;
  while myform.Created do
    begin
      engine.render;
      Application.DoEvents;
    end;
  engine.dispose;
  
end.
